home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / ab20 / datacomm / vlt_5045.lzh / rexx / Remote.vlt < prev    next >
Encoding:
Text File  |  1990-08-03  |  692 b   |  37 lines
  1. /** Remote.vlt
  2. *
  3. *  Send a command to a remote VLT
  4. *
  5. **/
  6.  
  7. str = ""
  8. do i = 1
  9. /*
  10. *   First ask for a command to be executed by the remote VLT
  11. */
  12.    str = request(50, 50, , 
  13.          "Enter a command for the remote to execute:",str,,"Cancel", VLT)
  14.  
  15.    if str = "" then exit(0);
  16. /*
  17. *   The initial escape sequence...
  18. */
  19.    string = '1b'x||"[?91h"
  20. /*
  21. *   ...and the password (AMIGA in this case)...
  22. */
  23.    string = string ||"AMIGA~"
  24. /*
  25. *   ...and the command...
  26. */
  27.    string = string ||str
  28. /*
  29. *   ...and the final escape sequence, make up the full string.
  30. */
  31.    string = string ||'1b'x||"[?91l"
  32. /*
  33. *   Send this string without further translation to the remote VLT.
  34. */
  35.    'send raw ['string']'
  36. end
  37.